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This macro is used for gig processor bugchecks. It 
has a different name so that primary processor bugchecks 


work as they always have. 
-MACRO SECBUG_CHECK ERROR, TYPE=CONT 
BSBW W*MPSSSECBUGCHK 


| 
IF IDN <TYPE>,<FATAL> , .WORD BUGS_‘ERROR'!4 


-1IF DIF <TYPE>.<FATAL> , .WORD BUGS” ERROR’ 
.ENDM  SECBUG_CHECK 


This macro updates the time-of-day processor register before 
it is accessed with an MFPR instruction. This guarantees that 
the correct value is used, since SSETTIME requests are not 
reflected on the secondary processor. 


.MACRO MFPR — SRC,DST,?L1 
.IF IDN <SRC>,<#PR780$_TODR> 
PUSHR #°M<R 


<RO,R1 R3> 
Li: MOV G*EXESGO_SYSTIME,RO 
mova GrEXESGO_SYSTIME .R2 
CMPL  _—RO,R 
BNEG =o 
CMPL = R1,R3 
BNEQ =o 
MOVQ G*EXE$GQ_TODCBASE,R2 
SUBL  R2.RO 


R3.R1 

EDIV  #<{00*1000*2>,R0,R0,R1 
ASHL #1,R1,R1 
ADDL GrEXESGL TODR,R1 
MTPR R1,#PR780$_TODR 
POPR #*M<RO,R1,R2,R3> 
~ENDC 
-MDELETE MFPR 
MFPR "SRC, "DST 
.MCALL MFPR 

.ENDM = MFPR 


This macro checks if the code is being executed on the primary 
processor or the secondary processor. f it is on the primary, 
then the input argument is the instruction to execute. Otherwise, 
; it branches around the input arguement. 


MACRO IFPRIMARY INSTR, ?L1 


#PRS$_SCBB,-(SP) | 
#RPBSL_SCBB,-(SP) 
G*EXESGL_RPB, (SP) 
CMPL a(SP)+,(SP)+ 
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BNE 


Q 1 
INSTR 


~ENDM IFPRIMARY 
: Equated Symbols: 


END 
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